home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / ptrp25dm.zip / ETEST9.TRP < prev    next >
Text File  |  1995-03-17  |  293b  |  15 lines

  1. procedure main
  2. var
  3.         a1 : array[1 .. 9] of byte;
  4.         i : byte;
  5. endVar
  6.         for i := 1 to 9 
  7.                 a1[i]  := i * i;
  8.         endFor
  9.         i := 9
  10.         while (i > 0)
  11.                 writeln(i, ' ', a1[i]);
  12.                 dec(i);
  13.         endWhile
  14. endProc
  15.